﻿Public Class Form1

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Me.Filmstripbar2.LineMarkerPosition = Me.TrackBar1.Value
    End Sub



    Private Sub Filmstripbar2_LinemarkerPositionChanged(ByVal sender As System.Object, ByVal e As CutBars.ProgressEventArgs) Handles Filmstripbar2.LinemarkerPositionChanged, Filmstripbar2.EndValueChanged, Filmstripbar2.StartValueChanged
        Me.Text = e.Linemarkerposition.ToString & " - " & e.StartValues(0) & e.EndValues(0)
    End Sub

    Private Sub Filmstripbar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Filmstripbar2.Click

    End Sub
End Class
